home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / bbsNewFile.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-18  |  714b  |  32 lines
  1. /* $VER: bbsNewFile.rexx 8.3 (18.11.94)
  2. called by BBBBS.baud for each file uploaded
  3. */
  4.  
  5. dev='NO_DIR:'   /* To activate, make this a valid directory */
  6.  
  7. PARSE ARG name filename .
  8.  
  9. CALL PRAGMA('W','N')          /* Turn requesters off */
  10. IF ~EXISTS(dev) | ~EXISTS(filename) THEN EXIT
  11.  
  12. ADDRESS COMMAND 'info >RAM:infout' dev
  13.  
  14. ok=OPEN(f,'ram:infout','R')
  15. IF ok=0 THEN EXIT 20
  16. line=READLN(f)
  17. line=READLN(f)
  18. line=READLN(f)
  19. line=READLN(f)
  20. CALL CLOSE(f)
  21.  
  22. devblks=WORD(line,4)-1
  23. filblks=WORD(STATEF(filename),3)
  24.  
  25. IF filblks>devblks THEN EXIT   /* No room at the inn... */
  26.  
  27. string='copy' filename dev 'CLONE'
  28. ADDRESS COMMAND string
  29. ADDRESS COMMAND 'protect' filename 'arwed'     /* set Archive bits */
  30.  
  31. /* bbsNewFile.rexx */
  32.